Namespace TestAttributes
    Public Class TestData
        Inherits Attribute
        Private msTestData As String
        Public Sub New(ByVal psTestData As String)
            msTestData = psTestData
        End Sub

        Public Property TestDataString() As String
            Get
                Return msTestData
            End Get
            Set(ByVal value As String)
                msTestData = value
            End Set
        End Property

    End Class
    Public Class DoNotUpdate
        Inherits Attribute
        Public Sub New()

        End Sub
    End Class
    Public Class DoNotInsert
        Inherits Attribute
        Public Sub New()

        End Sub
    End Class
    Public Class TestColumnName
        Inherits Attribute
        Private msColumnName As String
        Public Sub New(ByVal psString As String)
            msColumnName = psString
        End Sub
        Public Property ColumnName() As String
            Get
                Return msColumnName
            End Get
            Set(ByVal value As String)
                msColumnName = value
            End Set
        End Property
    End Class

End Namespace